Cream of the Crop 26/Cream of the Crop 26.iso/bbs/solace1.zip/TONY.REF

Text File | 1997-06-28 | 8KB | 520 lines

@#lock
@DO SAYBAR
It's locked.
@do moveback

@#sign
@DO SAYBAR
Solace
@do moveback

@#chair
@DO SAYBAR
Nice Chair
@do moveback

@#block
@DO SAYBAR
This statue is deticated to the hero who killed the Red Dragon.
@do moveback

@#GATE
;Gate to Solace

@IF &lasty is 14 then do
@BEGIN
@DO SAYBAR
`2The guard nods as you pass.
@CLOSESCRIPT
@END

@BUSY
@DO `v01 is 1
@SHOW
`r0`c  `r1 You approach the hulking gates `r0

  `2The guard yells `0"Halt!! Citizen, you must have a travel pass to continue
  beyond this point."

@DO WRITE
`x`x
@CHOICE
>`i21 0 Show him your travel pass
You don't have one, guess you'll leave
@IF RESPONSE IS 1 THEN DO
@Begin
@Show
`\`\  `$"Here you go,"`2 you say and show the pass to the guard.
`\`k
@DRAWMAP
@UPDATE
@DO SAYBAR
`2Neat he let me in.
@CLOSESCRIPT
@End
@IF RESPONSE IS 2 THEN DO
@Begin
@Show
`\`\  `2You wonder where you could find a pass...
`\`k
@DO MOVEBACK
@DRAWMAP
@UPDATE
@CLOSESCRIPT
@End

@#healers
@offmap
@do moveback
@do `v01 is 1
@show
`r0`c  `%The Healers

`2  You see a sign on the wall that says healing cost 1/2 gold per hitpoint
  needed.

`2  Tika looks you over for wounds.

@do write
`x`x
@if `p02 < `p03 then do
 @begin
@do `p20 is `p03
@do `p20 - `p02
@do `p20 / 2



 @show
`0"You don't look so good, friend!  I'll fix ya up for `$`p20`0 gold, k?"

@do write
`x`x
@choice
Heal yourself for `$$`p20`%. (you have `$$&money`%)
Limp on out.
@show
`\
@if response is 1 then do begin
 @begin
 @if money < `p20 then do
  @begin
  @show
  `0"Sorry, I'm not gonna perform those services for free!"

@if sexmale is 1 then do
 @begin
 @do write
`x`x
 @choice
For `$$`p20`%, you better perform some other services too, whore!
How about I pay with my good looks, honey?
How 'bout you and me go in the back and I show you my sword?
Meekly accept, and compliment her on her dress
@show


@if response is 4 then do
 @begin
 @show
  `0"That's a good lad, now get along with you!" `2 she laughs.

`k
 @end

@if response is 1 then do
 @begin
 @show
  `0"How dare you say that to me!  Get out!!!!" `2 she screams.

`k
 @end
@if response is 2 then do
 @begin
 @show
  `0"I'd rather kiss a troll." `2 she informs you.

`k
 @end
@if response is 3 then do
 @begin
 @do `p02 = 1
 @show
  `0"How 'bout I show you my fists?" `2 she yells as she sticks a needle in you!

  `4HIT POINTS GO DOWN TO 1.

`k
 @end



 @end

  @drawmap
  @update
  @closescript
  @end

@do money - `p20
@do `p21 = `p03
@do `p21 - `p02
@do `p02 = `p03
@show
  `2You feel much better as `0`p21`2 hitpoints are restored.

`k
  @end
  @drawmap
  @update
  @closescript
@end

@show
`0"You are a perfect picture of health, dear `$`n`$!" `2Tika exclaims.

`k
@drawmap
@update

@#weapon
@offmap
@do moveback
@do `v01 is 1
@label rog1
@show
`r0`c  `%Tanis's Weapons

`2  Hello there.

@do write
`x`x
@choice
Examine his wares.
Ask him to buy some of your stuff.
Gossip with Tanis
Go outside.
@show
`\
@if responce is 1 then do begin
 @begin
 @clearblock 8 14
 @do move 1 7
 @buymanager
  1
  6
  4
  9
  15
  16
  35
  36
  38
  39
  49
  58
  59
  60
  64
  70
  @end

@if responce is 2 then do begin
 @begin
@show
  `!"I don't think so - Go sell it to the Pawn Shop - I do all my business
  with them!" `2the codger relates.

`k
@do goto rog1
  @end

@if responce is 3 then do begin
 @begin
@show
 "I heard there is only one one to get in the tower."

`k
@do goto rog1
  @end


@if responce not 4 then goto weapon
@drawmap
@update

@#pawn
@offmap
@do moveback
@do `v01 is 1
@label pawn1
@show
`r0`c  `%The Pawn Shop

`2  Otik motions you to approach.  He reeks of wine.

@do write
`x`x
@choice
Examine his wares.
Ask him to buy some of your stuff.
Gossip with Otik
Go outside.
@show
`\
@if responce is 1 then do begin
 @begin
 @clearblock 8 14
 @do move 1 7
 @buymanager
  5
  6
  20
  @end

@if responce is 2 then do begin
 @begin
 @clearblock 8 14
 @do move 1 7
 @sellmanager
  @end

@if responce is 3 then do begin
 @begin
@show
  `0"Listen to Tanis his is pretty smart."

`k
  @end



@if responce not 4 then goto pawn1
@drawmap
@update

@#caramon
@offmap
@do moveback
@do `v01 is 1
@label abstart
@show
`r0`c  `%Caramon's Armour

`2  You see a nice collection of armour.

@do write
`x`x
@choice
Examine his wares
Go outside.
@show
`\
@if responce is 1 then do begin
 @begin
@buymanager
  10
  12
  13
  14
  37
  59
  62
  68
  @end

@if responce not 2 then goto abstart
@drawmap
@update

@#gate1
@offmap
@do moveback
@busy
@DO SAYBAR
        "Tower of Wayreth"

@if `p07 > -75 then do
        @begin
        @DO SAYBAR

        "Leave this place or die!"
@drawmap
@update
@closescript
@end

@if `p07 < -75 then do
        @begin
        @DO SAYBAR
        "Welcome Evil One."

        @do x is 39
        @do y is 16
@drawmap
@update
@closescript
@end

@drawmap
@update

@#done

@#exit
@drawmap
@update

@do saybar
     "Good Bye"
@do x is 40
@do y is 19

@drawmap
@update

@#h1
@do saybar
"Hello welcome to solace."
@do moveback

@#h2
@do saybar
"Ya know you have to be pretty evil to get in the tower."
@do moveback

@#h3
@do saybar
"We have a pretty nice inn in solace."
@do moveback

@#h4
@do saybar
"Welcome."
@do moveback

@#h5
@do saybar
"Hello."
@do moveback

@#inn
@offmap
@Do MOVEBACK
@label open
@DO `v01 is 1
@SHOW
`r0`c  `r1`% The Solace Inn `r0

  `2You step inside the inn door and the heat inside engulfs you.  In the
  corner of the big wooden room is a piano piping out merry tunes for the
  patrons.  Adventurers adorne the lodge engaging in their tales and food.
  What do you want to do?

  `2(you have `$$&money`2)

@DO WRITE
`x`x
@CHOICE
>&money 10 Buy a $10 meal
>&money 20 Buy the $20 `3BIG `%meal
>&sex 0 =`v06 0 Flirt with the local women
Get a room for the night
Leave this place
@IF RESPONSE IS 1 THEN DO
@Begin
@do money - 10
@Show
`\`\  `$"One order of clam soups."

  `%YOU FEEL PARTIALLY REFRESHED
`\`k
@do `p02 + 5
@if `p02 > `p03 then `p02 is `p03
@do goto open
@DRAWMAP
@UPDATE
@CLOSESCRIPT
@End
@IF RESPONSE IS 2 THEN DO
@Begin
@do money - 20
@Show
`\`\  `$"Give me an order of shark ribs."

  `%YOU FEEL FULLY REFRESHED
`\`k
@if `p02 < `p03 then `p02 is `p03
@do goto open
@DRAWMAP
@UPDATE
@CLOSESCRIPT
@End
  @IF RESPONSE IS 3 THEN DO
@Begin
@Show
`\`\  `2You smile at a rather voluptuous waitress, `$"Hey baby, when do you
  get off?"  `2She turns to look at you and `l.`l.`l.
@do write
`\`k
@do `p20 random 6 1
@IF `p20 is 1 then do
  @Begin
  @Show
  `0"Same time you do baby," `2she smiles.  All right!
`\`k
  @do goto open
  @End
@IF `p20 is 2 then do
  @Begin
  @Show
  `0"Not 'till two hours into it," `2she smiles.  You Stallion!
`\`k
  @do goto open
  @End
@IF `p20 is 3 then do
  @Begin
  @Show
  `0"Whenever you want me to big boy," `2she smiles.  Go man!
`\`k
  @do goto open
  @End
@Show
  `2Slaps you across the face.  Guess not any time soon.
`\`k
@do goto open
  @End
@IF RESPONSE IS 4 THEN DO
@Begin
@pauseoff
@do `v01 is 1
@Show
`\`\  `$"Pardon me sir, I'm interested in a room for the night."
  `0"A room here will cost ya only 40."

@DO WRITE
`x`x
@CHOICE
>&money 40 Go ahead and get a room
Forget this place
@IF RESPONSE IS 1 THEN DO
@BEGIN
@do money - 40
@do x = 62
@do y = 3
@loadmap 1348
@do map = 1348
@drawmap
@update
@closescript
@END
@IF RESPONSE IS 2 THEN DO
@do goto open
@End
@IF RESPONSE IS 5 THEN DO
@DRAWMAP
@UPDATE
@CLOSESCRIPT
@End